home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PACKAGES / SPELL.ELC < prev    next >
Text File  |  1993-03-28  |  3KB  |  36 lines
  1. ;;; compiled by jwz@thalidomide on Tue Jun 30 23:23:58 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/spell.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar spell-command "spell" "\
  14. *Command to run the spell program.")
  15. (defvar spell-filter nil "\
  16. *Filter function to process text before passing it to spell program.
  17. This function might remove text-processor commands.
  18. nil means don't alter the text before checking it.")
  19. (fset 'spell-buffer #[nil "└ed┴#ç" [spell-region "buffer"] 4 "\
  20. Check spelling of every word in the buffer.
  21. For each incorrect word, you are asked for the correct spelling
  22. and then put into a query-replace to fix some or all occurrences.
  23. If you do not want to change a word, just give the same word
  24. as its \"correct\" spelling; then the query replace is skipped." nil])
  25. (fset 'spell-word #[nil "└ëëè─┼!¼â╞vê`╟vê`)╚ \n \n{#+ç" [nil spell-filter end beg looking-at "\\<" -1 1 spell-region] 5 "\
  26. Check spelling of word at or before point.
  27. If it is not correct, ask user for the correct spelling
  28. and query-replace the entire buffer to substitute it." nil])
  29. (fset 'spell-region #[(start end &optional description) "┴┬!è qê~ê┼ ê)╞╟«ü╔\"ê ¼¼\nSf╦U½ñ ═ÿ½î╬\n═╨ %ê¬═╬\n╨ ╨╥ &ê¬╗pè qê╘\n#ên¼â╦cê ½â  ê ═ÿ½è╬ed═╒ %ê¬Ä╬ed╒ ╨╥ &ê*╞╓«ü╔è qê╫ ╪V)½â┘¬ü┌#ê╨ë╒ëè qê╫ ╪V)¡┼è qêebê`╨ê`{ù▀uêe`|êαßΓQ\"πΣσ!µQ!ê)ܼAebêτΦσ!ΦQ\"ê¬0.ç" [spell-filter get-buffer-create " *temp*" buf filter erase-buffer message "Checking spelling of %s..." description "region" end 10 spell-command "spell" call-process-region start nil shell-file-name "-c" oldbuf insert-buffer-substring t "Checking spelling of %s...%s" buffer-size 0 "not correct" "correct" case-replace case-fold-search newword word 1 read-input "`" "' not recognized; edit a replacement: " flush-lines "^" regexp-quote "$" query-replace-regexp "\\b"] 9 "\
  30. Like spell-buffer but applies only to region.
  31. Used in a program, applies from START to END.
  32. DESCRIPTION is an optional string naming the unit being checked:
  33. for example, \"word\"." "r"])
  34. (fset 'spell-string #[(string) "└┴!è\nqê~ê├ ê ┼▒ê╟ÿ½è╚ed╟╔ë%ê¬Ä╚ed\n╔ë╦╠&ê═ ╬U½å╧╨ \"¬ûebê╤┼╦╔#½å╥╙!ê¬s╧╘╒d{\"*ç" [get-buffer-create " *temp*" buf erase-buffer string "\n" spell-command "spell" call-process-region t shell-file-name nil "-c" buffer-size 0 message "%s is correct" search-forward replace-match " " "%sincorrect" 1] 9 "\
  35. Check spelling of string supplied as argument." "sSpell string: "])
  36.